/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / *HyCard.XCMD.cpt / *HyCard.XCMD / GetDocs.p

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 47 65 74 44 6f 63 | 73 2e 70 00 00 00 00 00 |..GetDoc|s.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 10 67 00 | 00 01 7e 9d 3e 5b c8 9d |......g.|..~.>[..|
|00000060| 3e 5b c8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |>[......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4d 8f 00 00 |........|....M...|
|00000080| 7b 24 52 2d 7d 0d 0d 28 | 2a 0d 09 47 65 74 44 6f |{$R-}..(|*..GetDo|
|00000090| 63 73 20 2d 2d 20 75 70 | 64 61 74 65 20 64 6f 63 |cs -- up|date doc|
|000000a0| 75 6d 65 6e 74 20 72 65 | 70 72 65 73 65 6e 74 61 |ument re|presenta|
|000000b0| 74 69 76 65 73 20 73 74 | 61 63 6b 0d 09 42 79 20 |tives st|ack..By |
|000000c0| 44 61 6e 20 57 69 6e 6b | 6c 65 72 2e 20 20 44 4f |Dan Wink|ler.  DO|
|000000d0| 20 4e 4f 54 20 63 61 6c | 6c 20 74 68 65 20 61 75 | NOT cal|l the au|
|000000e0| 74 68 6f 72 21 20 20 43 | 6f 6e 74 61 63 74 20 41 |thor!  C|ontact A|
|000000f0| 70 70 6c 65 20 44 65 76 | 65 6c 6f 70 65 72 20 0d |pple Dev|eloper .|
|00000100| 09 53 75 70 70 6f 72 74 | 20 6f 6e 20 41 70 70 6c |.Support| on Appl|
|00000110| 65 4c 69 6e 6b 20 22 4d | 61 63 44 73 74 22 20 6f |eLink "M|acDst" o|
|00000120| 72 20 6f 6e 20 4d 43 49 | 20 22 4d 61 63 54 65 63 |r on MCI| "MacTec|
|00000130| 68 22 2e 0d 0d 09 a9 41 | 70 70 6c 65 20 43 6f 6d |h".....A|pple Com|
|00000140| 70 75 74 65 72 2c 20 49 | 6e 63 2e 20 31 39 38 37 |puter, I|nc. 1987|
|00000150| 0d 09 41 6c 6c 20 52 69 | 67 68 74 73 20 52 65 73 |..All Ri|ghts Res|
|00000160| 65 72 76 65 64 2e 0d 0d | 09 70 61 73 63 61 6c 20 |erved...|.pascal |
|00000170| 47 65 74 44 6f 63 73 2e | 70 0d 09 6c 69 6e 6b 20 |GetDocs.|p..link |
|00000180| 2d 6d 20 45 4e 54 52 59 | 50 4f 49 4e 54 20 2d 6f |-m ENTRY|POINT -o|
|00000190| 20 7b 42 4f 4f 54 7d 64 | 6f 63 75 6d 65 6e 74 73 | {BOOT}d|ocuments|
|000001a0| 20 2d 72 74 20 58 43 4d | 44 3d 32 20 2d 73 6e 20 | -rt XCM|D=2 -sn |
|000001b0| 4d 61 69 6e 3d 47 65 74 | 44 6f 63 73 20 47 65 74 |Main=Get|Docs Get|
|000001c0| 44 6f 63 73 2e 70 2e 6f | 20 b6 0d 09 20 20 7b 4d |Docs.p.o| ...  {M|
|000001d0| 50 57 7d 4c 69 62 72 61 | 72 69 65 73 3a 49 6e 74 |PW}Libra|ries:Int|
|000001e0| 65 72 66 61 63 65 2e 6f | 20 7b 4d 50 57 7d 50 4c |erface.o| {MPW}PL|
|000001f0| 69 62 72 61 72 69 65 73 | 3a 50 61 73 4c 69 62 2e |ibraries|:PasLib.|
|00000200| 6f 0d 20 20 20 20 20 20 | 20 20 7b 62 6f 6f 74 7d |o.      |  {boot}|
|00000210| 68 79 70 65 72 63 61 72 | 64 0d 0d 2a 29 0d 0d 7b |hypercar|d..*)..{|
|00000220| 24 53 20 47 65 74 44 6f | 63 73 20 7d 20 09 7b 20 |$S GetDo|cs } .{ |
|00000230| 53 65 67 6d 65 6e 74 20 | 6e 61 6d 65 20 6d 75 73 |Segment |name mus|
|00000240| 74 20 62 65 20 74 68 65 | 20 73 61 6d 65 20 61 73 |t be the| same as|
|00000250| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 20 6e 61 6d | the com|mand nam|
|00000260| 65 2e 20 7d 0d 0d 55 4e | 49 54 20 44 75 6d 6d 79 |e. }..UN|IT Dummy|
|00000270| 55 6e 69 74 3b 0d 0d 49 | 4e 54 45 52 46 41 43 45 |Unit;..I|NTERFACE|
|00000280| 0d 0d 55 53 45 53 20 4d | 65 6d 54 79 70 65 73 2c |..USES M|emTypes,|
|00000290| 20 51 75 69 63 6b 44 72 | 61 77 2c 20 4f 53 49 6e | QuickDr|aw, OSIn|
|000002a0| 74 66 2c 20 54 6f 6f 6c | 49 6e 74 66 2c 20 48 79 |tf, Tool|Intf, Hy|
|000002b0| 70 65 72 58 43 6d 64 3b | 0d 0d 50 52 4f 43 45 44 |perXCmd;|..PROCED|
|000002c0| 55 52 45 20 45 6e 74 72 | 79 50 6f 69 6e 74 28 70 |URE Entr|yPoint(p|
|000002d0| 61 72 61 6d 50 74 72 3a | 20 58 43 6d 64 50 74 72 |aramPtr:| XCmdPtr|
|000002e0| 29 3b 0d 09 0d 49 4d 50 | 4c 45 4d 45 4e 54 41 54 |);...IMP|LEMENTAT|
|000002f0| 49 4f 4e 0d 0d 54 59 50 | 45 20 53 74 72 33 31 20 |ION..TYP|E Str31 |
|00000300| 3d 20 53 74 72 69 6e 67 | 5b 33 31 5d 3b 0d 0d 50 |= String|[31];..P|
|00000310| 52 4f 43 45 44 55 52 45 | 20 47 65 74 44 6f 63 73 |ROCEDURE| GetDocs|
|00000320| 28 70 61 72 61 6d 50 74 | 72 3a 20 58 43 6d 64 50 |(paramPt|r: XCmdP|
|00000330| 74 72 29 3b 20 09 09 09 | 09 09 09 09 46 4f 52 57 |tr); ...|....FORW|
|00000340| 41 52 44 3b 0d 0d 20 20 | 50 52 4f 43 45 44 55 52 |ARD;..  |PROCEDUR|
|00000350| 45 20 45 6e 74 72 79 50 | 6f 69 6e 74 28 70 61 72 |E EntryP|oint(par|
|00000360| 61 6d 50 74 72 3a 20 58 | 43 6d 64 50 74 72 29 3b |amPtr: X|CmdPtr);|
|00000370| 0d 20 20 42 45 47 49 4e | 0d 20 20 20 20 47 65 74 |.  BEGIN|.    Get|
|00000380| 44 6f 63 73 28 70 61 72 | 61 6d 50 74 72 29 3b 0d |Docs(par|amPtr);.|
|00000390| 20 20 45 4e 44 3b 0d 0d | 20 20 50 52 4f 43 45 44 |  END;..|  PROCED|
|000003a0| 55 52 45 20 47 65 74 44 | 6f 63 73 28 70 61 72 61 |URE GetD|ocs(para|
|000003b0| 6d 50 74 72 3a 20 58 43 | 6d 64 50 74 72 29 3b 0d |mPtr: XC|mdPtr);.|
|000003c0| 20 20 56 41 52 20 70 61 | 74 68 4e 61 6d 65 3a 20 |  VAR pa|thName: |
|000003d0| 53 74 72 32 35 35 3b 0d | 20 20 20 20 20 20 66 69 |Str255;.|      fi|
|000003e0| 6c 65 4e 61 6d 65 3a 09 | 53 74 72 32 35 35 3b 0d |leName:.|Str255;.|
|000003f0| 20 20 20 20 20 20 70 61 | 72 61 6d 42 6c 6f 63 6b |      pa|ramBlock|
|00000400| 3a 20 43 49 6e 66 6f 50 | 42 52 65 63 3b 0d 20 20 |: CInfoP|BRec;.  |
|00000410| 20 20 20 20 64 65 73 6b | 54 6f 70 3a 20 49 4e 54 |    desk|Top: INT|
|00000420| 45 47 45 52 3b 0d 09 20 | 20 0d 20 20 20 20 7b 24 |EGER;.. | .    {$|
|00000430| 49 20 58 43 6d 64 47 6c | 75 65 2e 69 6e 63 20 7d |I XCmdGl|ue.inc }|
|00000440| 0d 20 20 20 20 0d 20 20 | 20 20 46 55 4e 43 54 49 |.    .  |  FUNCTI|
|00000450| 4f 4e 20 43 61 72 64 45 | 78 69 73 74 73 3a 20 42 |ON CardE|xists: B|
|00000460| 4f 4f 4c 45 41 4e 3b 0d | 20 20 20 20 7b 20 64 6f |OOLEAN;.|    { do|
|00000470| 20 77 65 20 61 6c 72 65 | 61 64 79 20 68 61 76 65 | we alre|ady have|
|00000480| 20 61 20 63 61 72 64 20 | 66 6f 72 20 74 68 69 73 | a card |for this|
|00000490| 20 64 6f 63 75 6d 65 6e | 74 3f 20 7d 0d 20 20 20 | documen|t? }.   |
|000004a0| 20 56 41 52 20 72 65 73 | 75 6c 74 3a 20 48 61 6e | VAR res|ult: Han|
|000004b0| 64 6c 65 3b 0d 20 20 20 | 20 20 20 20 20 69 3a 20 |dle;.   |     i: |
|000004c0| 49 4e 54 45 47 45 52 3b | 0d 09 73 74 72 69 70 70 |INTEGER;|..stripp|
|000004d0| 65 64 4e 61 6d 65 3a 20 | 53 74 72 32 35 35 3b 0d |edName: |Str255;.|
|000004e0| 20 20 20 20 42 45 47 49 | 4e 0d 20 20 20 20 20 20 |    BEGI|N.      |
|000004f0| 73 74 72 69 70 70 65 64 | 4e 61 6d 65 20 3a 3d 20 |stripped|Name := |
|00000500| 66 69 6c 65 4e 61 6d 65 | 3b 0d 20 20 20 20 20 20 |fileName|;.      |
|00000510| 46 4f 52 20 69 20 3a 3d | 20 31 20 54 4f 20 4c 65 |FOR i :=| 1 TO Le|
|00000520| 6e 67 74 68 28 73 74 72 | 69 70 70 65 64 4e 61 6d |ngth(str|ippedNam|
|00000530| 65 29 20 44 4f 20 20 7b | 20 73 74 72 69 70 20 71 |e) DO  {| strip q|
|00000540| 75 6f 74 65 73 20 7d 0d | 20 20 20 20 20 20 20 20 |uotes }.|        |
|00000550| 49 46 20 73 74 72 69 70 | 70 65 64 4e 61 6d 65 5b |IF strip|pedName[|
|00000560| 69 5d 20 3d 20 27 22 27 | 20 54 48 45 4e 20 73 74 |i] = '"'| THEN st|
|00000570| 72 69 70 70 65 64 4e 61 | 6d 65 5b 69 5d 20 3a 3d |rippedNa|me[i] :=|
|00000580| 20 27 20 27 3b 0d 20 20 | 20 20 20 20 53 65 6e 64 | ' ';.  |    Send|
|00000590| 43 61 72 64 4d 65 73 73 | 61 67 65 28 43 6f 6e 63 |CardMess|age(Conc|
|000005a0| 61 74 28 27 66 69 6e 64 | 20 22 27 2c 73 74 72 69 |at('find| "',stri|
|000005b0| 70 70 65 64 4e 61 6d 65 | 2c 27 22 20 69 6e 20 66 |ppedName|,'" in f|
|000005c0| 69 65 6c 64 20 22 4e 61 | 6d 65 22 27 29 29 3b 0d |ield "Na|me"'));.|
|000005d0| 20 20 20 20 20 20 72 65 | 73 75 6c 74 20 3a 3d 20 |      re|sult := |
|000005e0| 45 76 61 6c 45 78 70 72 | 28 27 74 68 65 20 72 65 |EvalExpr|('the re|
|000005f0| 73 75 6c 74 27 29 3b 0d | 20 20 20 20 20 20 43 61 |sult');.|      Ca|
|00000600| 72 64 45 78 69 73 74 73 | 20 3a 3d 20 72 65 73 75 |rdExists| := resu|
|00000610| 6c 74 5e 5e 20 3d 20 30 | 3b 0d 20 20 20 20 20 20 |lt^^ = 0|;.      |
|00000620| 44 69 73 70 6f 73 48 61 | 6e 64 6c 65 28 72 65 73 |DisposHa|ndle(res|
|00000630| 75 6c 74 29 3b 0d 20 20 | 20 20 45 4e 44 3b 0d 20 |ult);.  |  END;. |
|00000640| 20 20 20 0d 20 20 20 20 | 50 52 4f 43 45 44 55 52 |   .    |PROCEDUR|
|00000650| 45 20 50 75 74 46 69 65 | 6c 64 28 66 69 65 6c 64 |E PutFie|ld(field|
|00000660| 4e 61 6d 65 2c 66 69 65 | 6c 64 56 61 6c 3a 20 53 |Name,fie|ldVal: S|
|00000670| 74 72 32 35 35 29 3b 0d | 20 20 20 20 56 41 52 20 |tr255);.|    VAR |
|00000680| 68 3a 20 48 61 6e 64 6c | 65 3b 0d 20 20 20 20 42 |h: Handl|e;.    B|
|00000690| 45 47 49 4e 0d 20 20 20 | 20 20 20 68 20 3a 3d 20 |EGIN.   |   h := |
|000006a0| 50 61 73 54 6f 5a 65 72 | 6f 28 66 69 65 6c 64 56 |PasToZer|o(fieldV|
|000006b0| 61 6c 29 3b 0d 20 20 20 | 20 20 20 53 65 74 46 69 |al);.   |   SetFi|
|000006c0| 65 6c 64 42 79 4e 61 6d | 65 28 46 41 4c 53 45 2c |eldByNam|e(FALSE,|
|000006d0| 66 69 65 6c 64 4e 61 6d | 65 2c 68 29 3b 0d 20 20 |fieldNam|e,h);.  |
|000006e0| 20 20 20 20 44 69 73 70 | 6f 73 48 61 6e 64 6c 65 |    Disp|osHandle|
|000006f0| 28 68 29 3b 0d 20 20 20 | 20 45 4e 44 3b 0d 20 20 |(h);.   | END;.  |
|00000700| 20 20 0d 20 20 20 20 46 | 55 4e 43 54 49 4f 4e 20 |  .    F|UNCTION |
|00000710| 4f 53 54 79 70 65 54 6f | 53 74 72 28 73 74 72 3a |OSTypeTo|Str(str:|
|00000720| 20 4f 53 54 79 70 65 29 | 3a 20 53 74 72 33 31 3b | OSType)|: Str31;|
|00000730| 0d 20 20 20 20 56 41 52 | 20 72 65 73 75 6c 74 3a |.    VAR| result:|
|00000740| 20 53 74 72 33 31 3b 0d | 20 20 20 20 42 45 47 49 | Str31;.|    BEGI|
|00000750| 4e 0d 20 20 20 20 20 20 | 72 65 73 75 6c 74 5b 30 |N.      |result[0|
|00000760| 5d 20 3a 3d 20 43 48 52 | 28 34 29 3b 0d 20 20 20 |] := CHR|(4);.   |
|00000770| 20 20 20 42 6c 6f 63 6b | 4d 6f 76 65 28 40 73 74 |   Block|Move(@st|
|00000780| 72 2c 50 6f 69 6e 74 65 | 72 28 4f 52 44 28 40 72 |r,Pointe|r(ORD(@r|
|00000790| 65 73 75 6c 74 29 2b 31 | 29 2c 34 29 3b 0d 20 20 |esult)+1|),4);.  |
|000007a0| 20 20 20 20 4f 53 54 79 | 70 65 54 6f 53 74 72 20 |    OSTy|peToStr |
|000007b0| 3a 3d 20 72 65 73 75 6c | 74 3b 0d 20 20 20 20 45 |:= resul|t;.    E|
|000007c0| 4e 44 3b 0d 09 20 20 0d | 20 20 20 20 50 52 4f 43 |ND;..  .|    PROC|
|000007d0| 45 44 55 52 45 20 44 6f | 4f 6e 65 46 69 6c 65 3b |EDURE Do|OneFile;|
|000007e0| 0d 20 20 20 20 54 59 50 | 45 20 50 61 73 50 74 72 |.    TYP|E PasPtr|
|000007f0| 20 3d 20 5e 53 74 72 32 | 35 35 3b 0d 20 20 20 20 | = ^Str2|55;.    |
|00000800| 56 41 52 20 63 6d 6e 74 | 3a 20 48 61 6e 64 6c 65 |VAR cmnt|: Handle|
|00000810| 3b 0d 20 20 20 20 42 45 | 47 49 4e 0d 20 20 20 20 |;.    BE|GIN.    |
|00000820| 20 20 49 46 20 43 61 72 | 64 45 78 69 73 74 73 20 |  IF Car|dExists |
|00000830| 54 48 45 4e 20 45 58 49 | 54 28 44 6f 4f 6e 65 46 |THEN EXI|T(DoOneF|
|00000840| 69 6c 65 29 3b 0d 20 20 | 20 20 20 20 53 65 6e 64 |ile);.  |    Send|
|00000850| 43 61 72 64 4d 65 73 73 | 61 67 65 28 27 67 6f 20 |CardMess|age('go |
|00000860| 74 6f 20 6c 61 73 74 20 | 63 61 72 64 27 29 3b 0d |to last |card');.|
|00000870| 20 20 20 20 20 20 53 65 | 6e 64 43 61 72 64 4d 65 |      Se|ndCardMe|
|00000880| 73 73 61 67 65 28 27 64 | 6f 4d 65 6e 75 20 22 4e |ssage('d|oMenu "N|
|00000890| 65 77 20 43 61 72 64 22 | 27 29 3b 0d 20 20 20 20 |ew Card"|');.    |
|000008a0| 20 20 50 75 74 46 69 65 | 6c 64 28 27 4e 61 6d 65 |  PutFie|ld('Name|
|000008b0| 27 2c 66 69 6c 65 4e 61 | 6d 65 29 3b 0d 20 20 20 |',fileNa|me);.   |
|000008c0| 20 20 20 50 75 74 46 69 | 65 6c 64 28 27 57 68 65 |   PutFi|eld('Whe|
|000008d0| 72 65 27 2c 70 61 74 68 | 4e 61 6d 65 29 3b 0d 20 |re',path|Name);. |
|000008e0| 20 20 20 20 20 50 75 74 | 46 69 65 6c 64 28 27 54 |     Put|Field('T|
|000008f0| 79 70 65 27 2c 4f 53 54 | 79 70 65 54 6f 53 74 72 |ype',OST|ypeToStr|
|00000900| 28 70 61 72 61 6d 42 6c | 6f 63 6b 2e 69 6f 46 6c |(paramBl|ock.ioFl|
|00000910| 46 6e 64 72 49 6e 66 6f | 2e 66 64 54 79 70 65 29 |FndrInfo|.fdType)|
|00000920| 29 3b 0d 20 20 20 20 20 | 20 50 75 74 46 69 65 6c |);.     | PutFiel|
|00000930| 64 28 27 43 72 65 61 74 | 6f 72 27 2c 4f 53 54 79 |d('Creat|or',OSTy|
|00000940| 70 65 54 6f 53 74 72 28 | 70 61 72 61 6d 42 6c 6f |peToStr(|paramBlo|
|00000950| 63 6b 2e 69 6f 46 6c 46 | 6e 64 72 49 6e 66 6f 2e |ck.ioFlF|ndrInfo.|
|00000960| 66 64 43 72 65 61 74 6f | 72 29 29 3b 0d 20 20 20 |fdCreato|r));.   |
|00000970| 20 20 20 50 75 74 46 69 | 65 6c 64 28 27 43 72 65 |   PutFi|eld('Cre|
|00000980| 61 74 65 64 27 2c 4c 6f | 6e 67 54 6f 53 74 72 28 |ated',Lo|ngToStr(|
|00000990| 70 61 72 61 6d 42 6c 6f | 63 6b 2e 69 6f 46 6c 43 |paramBlo|ck.ioFlC|
|000009a0| 72 44 61 74 29 29 3b 0d | 20 20 20 20 20 20 53 65 |rDat));.|      Se|
|000009b0| 6e 64 43 61 72 64 4d 65 | 73 73 61 67 65 28 27 63 |ndCardMe|ssage('c|
|000009c0| 6f 6e 76 65 72 74 20 66 | 69 65 6c 64 20 22 43 72 |onvert f|ield "Cr|
|000009d0| 65 61 74 65 64 22 20 74 | 6f 20 6c 6f 6e 67 20 64 |eated" t|o long d|
|000009e0| 61 74 65 27 29 3b 0d 20 | 20 20 20 20 20 50 75 74 |ate');. |     Put|
|000009f0| 46 69 65 6c 64 28 27 4d | 6f 64 69 66 69 65 64 27 |Field('M|odified'|
|00000a00| 2c 4c 6f 6e 67 54 6f 53 | 74 72 28 70 61 72 61 6d |,LongToS|tr(param|
|00000a10| 42 6c 6f 63 6b 2e 69 6f | 46 6c 4d 64 44 61 74 29 |Block.io|FlMdDat)|
|00000a20| 29 3b 0d 20 20 20 20 20 | 20 53 65 6e 64 43 61 72 |);.     | SendCar|
|00000a30| 64 4d 65 73 73 61 67 65 | 28 27 63 6f 6e 76 65 72 |dMessage|('conver|
|00000a40| 74 20 66 69 65 6c 64 20 | 22 4d 6f 64 69 66 69 65 |t field |"Modifie|
|00000a50| 64 22 20 74 6f 20 6c 6f | 6e 67 20 64 61 74 65 27 |d" to lo|ng date'|
|00000a60| 29 3b 0d 20 20 20 20 20 | 20 50 75 74 46 69 65 6c |);.     | PutFiel|
|00000a70| 64 28 27 53 69 7a 65 27 | 2c 43 6f 6e 63 61 74 28 |d('Size'|,Concat(|
|00000a80| 4c 6f 6e 67 54 6f 53 74 | 72 28 28 70 61 72 61 6d |LongToSt|r((param|
|00000a90| 42 6c 6f 63 6b 2e 69 6f | 46 6c 50 79 4c 65 6e 2b |Block.io|FlPyLen+|
|00000aa0| 70 61 72 61 6d 42 6c 6f | 63 6b 2e 69 6f 46 4c 52 |paramBlo|ck.ioFLR|
|00000ab0| 50 79 4c 65 6e 2b 31 30 | 32 33 29 20 44 49 56 20 |PyLen+10|23) DIV |
|00000ac0| 31 30 32 34 29 2c 27 20 | 4b 27 29 29 3b 0d 20 20 |1024),' |K'));.  |
|00000ad0| 20 20 20 20 63 6d 6e 74 | 20 3a 3d 20 47 65 74 52 |    cmnt| := GetR|
|00000ae0| 65 73 6f 75 72 63 65 28 | 27 46 43 4d 54 27 2c 70 |esource(|'FCMT',p|
|00000af0| 61 72 61 6d 42 6c 6f 63 | 6b 2e 69 6f 46 6c 58 46 |aramBloc|k.ioFlXF|
|00000b00| 6e 64 72 49 6e 66 6f 2e | 66 64 43 6f 6d 6d 65 6e |ndrInfo.|fdCommen|
|00000b10| 74 29 3b 0d 20 20 20 20 | 20 20 49 46 20 63 6d 6e |t);.    |  IF cmn|
|00000b20| 74 20 3c 3e 20 4e 49 4c | 20 54 48 45 4e 20 50 75 |t <> NIL| THEN Pu|
|00000b30| 74 46 69 65 6c 64 28 27 | 4e 6f 74 65 73 27 2c 50 |tField('|Notes',P|
|00000b40| 61 73 50 74 72 28 63 6d | 6e 74 5e 29 5e 29 3b 0d |asPtr(cm|nt^)^);.|
|00000b50| 20 20 20 20 20 20 28 2a | 2a 2a 0d 20 20 20 20 20 |      (*|**.     |
|00000b60| 20 69 6f 46 6c 58 46 6e | 64 72 49 6e 66 6f 2e 66 | ioFlXFn|drInfo.f|
|00000b70| 64 49 63 6f 6e 49 44 0d | 20 20 20 20 20 20 2a 2a |dIconID.|      **|
|00000b80| 2a 29 0d 20 20 20 20 45 | 4e 44 3b 0d 20 20 20 20 |*).    E|ND;.    |
|00000b90| 20 20 0d 20 20 20 20 50 | 52 4f 43 45 44 55 52 45 |  .    P|ROCEDURE|
|00000ba0| 20 44 6f 4f 6e 65 50 61 | 74 68 3b 0d 20 20 20 20 | DoOnePa|th;.    |
|00000bb0| 56 41 52 20 66 69 6c 65 | 49 6e 64 65 78 3a 20 49 |VAR file|Index: I|
|00000bc0| 4e 54 45 47 45 52 3b 0d | 09 72 65 73 75 6c 74 3a |NTEGER;.|.result:|
|00000bd0| 09 49 4e 54 45 47 45 52 | 3b 0d 09 77 64 50 61 72 |.INTEGER|;..wdPar|
|00000be0| 61 6d 73 3a 20 57 44 50 | 42 52 65 63 3b 0d 20 20 |ams: WDP|BRec;.  |
|00000bf0| 20 20 42 45 47 49 4e 0d | 20 20 20 20 20 20 7b 20 |  BEGIN.|      { |
|00000c00| 73 65 74 20 75 70 20 77 | 6f 72 6b 69 6e 67 20 64 |set up w|orking d|
|00000c10| 69 72 65 63 74 6f 72 79 | 20 7d 0d 20 20 20 20 20 |irectory| }.     |
|00000c20| 20 5a 65 72 6f 42 79 74 | 65 73 28 40 77 64 50 61 | ZeroByt|es(@wdPa|
|00000c30| 72 61 6d 73 2c 53 69 7a | 65 4f 66 28 77 64 50 61 |rams,Siz|eOf(wdPa|
|00000c40| 72 61 6d 73 29 29 3b 0d | 20 20 20 20 20 20 57 49 |rams));.|      WI|
|00000c50| 54 48 20 77 64 50 61 72 | 61 6d 73 20 44 4f 0d 09 |TH wdPar|ams DO..|
|00000c60| 42 45 47 49 4e 0d 09 20 | 20 69 6f 4e 61 6d 65 50 |BEGIN.. | ioNameP|
|00000c70| 74 72 20 3a 3d 20 40 70 | 61 74 68 4e 61 6d 65 3b |tr := @p|athName;|
|00000c80| 0d 09 20 20 69 6f 57 44 | 50 72 6f 63 49 44 20 3a |..  ioWD|ProcID :|
|00000c90| 3d 20 24 34 35 35 32 34 | 39 34 42 3b 20 20 7b 20 |= $45524|94B;  { |
|00000ca0| 27 45 52 49 4b 27 20 73 | 6f 20 66 69 6e 64 65 72 |'ERIK' s|o finder|
|00000cb0| 20 77 69 6c 6c 20 64 65 | 6c 65 74 65 20 6c 61 74 | will de|lete lat|
|00000cc0| 65 72 20 7d 0d 09 20 20 | 69 6f 57 44 44 69 72 49 |er }..  |ioWDDirI|
|00000cd0| 44 20 3a 3d 20 32 3b 0d | 09 45 4e 44 3b 0d 20 20 |D := 2;.|.END;.  |
|00000ce0| 20 20 20 20 53 65 74 52 | 65 73 4c 6f 61 64 28 46 |    SetR|esLoad(F|
|00000cf0| 41 4c 53 45 29 3b 0d 20 | 20 20 20 20 20 53 65 74 |ALSE);. |     Set|
|00000d00| 52 65 73 4c 6f 61 64 28 | 54 52 55 45 29 3b 0d 20 |ResLoad(|TRUE);. |
|00000d10| 20 20 20 20 20 72 65 73 | 75 6c 74 20 3a 3d 20 50 |     res|ult := P|
|00000d20| 42 4f 70 65 6e 57 44 28 | 40 77 64 50 61 72 61 6d |BOpenWD(|@wdParam|
|00000d30| 73 2c 46 41 4c 53 45 29 | 3b 0d 20 20 20 20 20 20 |s,FALSE)|;.      |
|00000d40| 49 46 20 72 65 73 75 6c | 74 20 3c 3e 20 30 20 54 |IF resul|t <> 0 T|
|00000d50| 48 45 4e 20 45 58 49 54 | 28 44 6f 4f 6e 65 50 61 |HEN EXIT|(DoOnePa|
|00000d60| 74 68 29 3b 0d 0d 20 20 | 20 20 20 20 7b 20 73 74 |th);..  |    { st|
|00000d70| 65 70 20 74 68 72 6f 75 | 67 68 20 65 61 63 68 20 |ep throu|gh each |
|00000d80| 66 69 6c 65 20 69 6e 20 | 74 68 69 73 20 64 69 72 |file in |this dir|
|00000d90| 65 63 74 6f 72 79 20 7d | 0d 20 20 20 20 20 20 66 |ectory }|.      f|
|00000da0| 69 6c 65 49 6e 64 65 78 | 20 3a 3d 20 31 3b 0d 20 |ileIndex| := 1;. |
|00000db0| 20 20 20 20 20 52 45 50 | 45 41 54 0d 09 5a 65 72 |     REP|EAT..Zer|
|00000dc0| 6f 42 79 74 65 73 28 40 | 70 61 72 61 6d 42 6c 6f |oBytes(@|paramBlo|
|00000dd0| 63 6b 2c 53 69 7a 65 4f | 66 28 70 61 72 61 6d 42 |ck,SizeO|f(paramB|
|00000de0| 6c 6f 63 6b 29 29 3b 0d | 09 57 49 54 48 20 70 61 |lock));.|.WITH pa|
|00000df0| 72 61 6d 42 6c 6f 63 6b | 20 44 4f 0d 09 20 20 42 |ramBlock| DO..  B|
|00000e00| 45 47 49 4e 0d 09 20 20 | 20 20 66 69 6c 65 4e 61 |EGIN..  |  fileNa|
|00000e10| 6d 65 20 3a 3d 20 27 27 | 3b 0d 09 20 20 20 20 69 |me := ''|;..    i|
|00000e20| 6f 4e 61 6d 65 50 74 72 | 20 3a 3d 20 40 66 69 6c |oNamePtr| := @fil|
|00000e30| 65 4e 61 6d 65 3b 0d 09 | 20 20 20 20 69 6f 56 52 |eName;..|    ioVR|
|00000e40| 65 66 4e 75 6d 20 3a 3d | 20 77 64 50 61 72 61 6d |efNum :=| wdParam|
|00000e50| 73 2e 69 6f 56 52 65 66 | 4e 75 6d 3b 0d 09 20 20 |s.ioVRef|Num;..  |
|00000e60| 20 20 69 6f 46 44 69 72 | 49 6e 64 65 78 20 3a 3d |  ioFDir|Index :=|
|00000e70| 20 66 69 6c 65 49 6e 64 | 65 78 3b 0d 09 20 20 45 | fileInd|ex;..  E|
|00000e80| 4e 44 3b 0d 09 72 65 73 | 75 6c 74 20 3a 3d 20 50 |ND;..res|ult := P|
|00000e90| 42 47 65 74 43 61 74 49 | 6e 66 6f 28 40 70 61 72 |BGetCatI|nfo(@par|
|00000ea0| 61 6d 42 6c 6f 63 6b 2c | 46 41 4c 53 45 29 3b 0d |amBlock,|FALSE);.|
|00000eb0| 09 49 46 20 28 72 65 73 | 75 6c 74 20 3d 20 30 29 |.IF (res|ult = 0)|
|00000ec0| 20 0d 09 41 4e 44 20 4e | 4f 54 20 42 69 74 54 73 | ..AND N|OT BitTs|
|00000ed0| 74 28 40 70 61 72 61 6d | 42 6c 6f 63 6b 2e 69 6f |t(@param|Block.io|
|00000ee0| 46 6c 41 74 74 72 69 62 | 2c 33 29 20 0d 09 28 2a |FlAttrib|,3) ..(*|
|00000ef0| 2a 20 41 4e 44 20 28 70 | 61 72 61 6d 42 6c 6f 63 |* AND (p|aramBloc|
|00000f00| 6b 2e 69 6f 46 6c 46 6e | 64 72 49 6e 66 6f 2e 66 |k.ioFlFn|drInfo.f|
|00000f10| 64 54 79 70 65 20 3c 3e | 20 27 41 50 50 4c 27 29 |dType <>| 'APPL')|
|00000f20| 20 2a 2a 29 0d 09 41 4e | 44 20 28 70 61 72 61 6d | **)..AN|D (param|
|00000f30| 42 6c 6f 63 6b 2e 69 6f | 46 6c 46 6e 64 72 49 6e |Block.io|FlFndrIn|
|00000f40| 66 6f 2e 66 64 54 79 70 | 65 20 3c 3e 20 27 46 4e |fo.fdTyp|e <> 'FN|
|00000f50| 44 52 27 29 20 0d 09 54 | 48 45 4e 20 44 6f 4f 6e |DR') ..T|HEN DoOn|
|00000f60| 65 46 69 6c 65 3b 0d 09 | 66 69 6c 65 49 6e 64 65 |eFile;..|fileInde|
|00000f70| 78 20 3a 3d 20 66 69 6c | 65 49 6e 64 65 78 20 2b |x := fil|eIndex +|
|00000f80| 20 31 3b 0d 20 20 20 20 | 20 20 55 4e 54 49 4c 20 | 1;.    |  UNTIL |
|00000f90| 72 65 73 75 6c 74 20 3d | 20 66 6e 66 45 72 72 3b |result =| fnfErr;|
|00000fa0| 0d 20 20 20 20 45 4e 44 | 3b 0d 0d 20 20 42 45 47 |.    END|;..  BEG|
|00000fb0| 49 4e 0d 20 20 20 20 57 | 49 54 48 20 70 61 72 61 |IN.    W|ITH para|
|00000fc0| 6d 50 74 72 5e 20 44 4f | 0d 20 20 20 20 20 20 42 |mPtr^ DO|.      B|
|00000fd0| 45 47 49 4e 0d 20 20 20 | 20 20 20 20 20 49 46 20 |EGIN.   |     IF |
|00000fe0| 70 61 72 61 6d 43 6f 75 | 6e 74 20 3c 20 31 20 54 |paramCou|nt < 1 T|
|00000ff0| 48 45 4e 0d 09 20 20 42 | 45 47 49 4e 0d 09 20 20 |HEN..  B|EGIN..  |
|00001000| 20 20 72 65 74 75 72 6e | 56 61 6c 75 65 20 3a 3d |  return|Value :=|
|00001010| 20 50 61 73 54 6f 5a 65 | 72 6f 28 27 73 65 61 72 | PasToZe|ro('sear|
|00001020| 63 68 20 77 68 69 63 68 | 20 66 6f 6c 64 65 72 3f |ch which| folder?|
|00001030| 27 29 3b 0d 09 20 20 20 | 20 45 58 49 54 28 47 65 |');..   | EXIT(Ge|
|00001040| 74 44 6f 63 73 29 3b 0d | 09 20 20 45 4e 44 3b 0d |tDocs);.|.  END;.|
|00001050| 09 52 65 74 75 72 6e 54 | 6f 50 61 73 28 70 61 72 |.ReturnT|oPas(par|
|00001060| 61 6d 73 5b 31 5d 5e 2c | 70 61 74 68 4e 61 6d 65 |ams[1]^,|pathName|
|00001070| 29 3b 0d 20 20 20 20 20 | 20 20 20 64 65 73 6b 54 |);.     |   deskT|
|00001080| 6f 70 20 3a 3d 20 4f 70 | 65 6e 52 46 50 65 72 6d |op := Op|enRFPerm|
|00001090| 28 27 44 65 73 6b 54 6f | 70 27 2c 30 2c 66 73 52 |('DeskTo|p',0,fsR|
|000010a0| 64 50 65 72 6d 29 3b 0d | 09 44 6f 4f 6e 65 50 61 |dPerm);.|.DoOnePa|
|000010b0| 74 68 3b 0d 09 43 6c 6f | 73 65 52 65 73 46 69 6c |th;..Clo|seResFil|
|000010c0| 65 28 64 65 73 6b 54 6f | 70 29 3b 0d 20 20 20 20 |e(deskTo|p);.    |
|000010d0| 20 20 45 4e 44 3b 0d 20 | 20 45 4e 44 3b 0d 0d 45 |  END;. | END;..E|
|000010e0| 4e 44 2e 0d 0d 0d 0d 00 | 00 00 00 00 00 00 00 00 |ND......|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001110| 3b 0d 09 20 57 48 49 4c | 45 20 63 6f 6d 6d 61 6e |;.. WHIL|E comman|
|00001120| 64 50 74 72 5e 20 3c 3e | 20 30 20 44 4f 0d 09 20 |dPtr^ <>| 0 DO.. |
|00001130| 1a 31 2e 20 44 44 45 78 | 70 61 6e 64 45 78 70 61 |.1. DDEx|pandExpa|
|00001140| 6e 64 54 65 6d 70 46 69 | 6c 65 20 78 02 00 00 00 |ndTempFi|le x....|
|00001150| 00 00 44 44 54 4d 44 44 | 41 50 01 00 00 00 00 00 |..DDTMDD|AP......|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 a5 f3 e9 10 00 00 | 10 67 00 00 01 7e 6e 75 |........|.g...~nu|
|00001180| 6d 62 65 72 20 2b 20 4f | 52 44 28 63 68 29 20 2d |mber + O|RD(ch) -|
|00001190| 20 4f 52 44 28 27 30 27 | 29 3b 0d 09 09 20 63 6f | ORD('0'|);... co|
|000011a0| 6d 6d 61 6e 64 50 74 72 | 20 3a 3d 20 50 6f 69 6e |mmandPtr| := Poin|
|000011b0| 74 65 72 28 4f 52 44 28 | 63 6f 6d 6d 61 6e 64 50 |ter(ORD(|commandP|
|000011c0| 74 72 29 20 2b 20 31 29 | 3b 0d 09 20 20 20 45 4e |tr) + 1)|;..   EN|
|000011d0| 44 3b 0d 09 20 49 46 20 | 6e 75 6d 62 65 72 20 3d |D;.. IF |number =|
|000011e0| 20 30 20 54 48 45 4e 20 | 6e 75 6d 62 65 72 20 3a | 0 THEN |number :|
|000011f0| 3d 20 31 3b 20 20 20 7b | 20 64 65 66 61 75 6c 74 |= 1;   {| default|
|00001200| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 09 54 6f |...H..Mo|naco..To|
|00001210| 20 63 6f 6d 70 69 6c 65 | 20 61 6e 64 20 6c 69 6e | compile| and lin|
|00001220| 6b 20 74 68 69 73 00 06 | 00 08 00 9c 00 05 01 d6 |k this..|........|
|00001230| 02 49 00 34 00 1d 01 6e | 02 61 9d 3e 23 88 00 00 |.I.4...n|.a.>#...|
|00001240| 0f 56 00 00 0f b4 00 00 | 0f 2a 01 00 00 00 01 00 |.V......|.*......|
|00001250| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 02 27 4a |...L...L|...2..'J|
|00001260| 03 50 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.P.....2|..MPSR..|
|00001270| 00 0a 03 ed ff ff 00 00 | 00 00 00 03 27 dc 00 00 |........|....'...|
+--------+-------------------------+-------------------------+--------+--------+